home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / system-tools-backends-2.0 / scripts / StbObject.pm < prev    next >
Encoding:
Perl POD Document  |  2009-10-20  |  1.9 KB  |  69 lines
  1. #-*- Mode: perl; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
  2. #
  3. # Copyright (C) 2005 Carlos Garnacho
  4. #
  5. # Authors: Carlos Garnacho Parro  <carlosg@gnome.org>
  6. #
  7. # This program is free software; you can redistribute it and/or modify
  8. # it under the terms of the GNU Library General Public License as published
  9. # by the Free Software Foundation; either version 2 of the License, or
  10. # (at your option) any later version.
  11. #
  12. # This program is distributed in the hope that it will be useful,
  13. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. # GNU Library General Public License for more details.
  16. #
  17. # You should have received a copy of the GNU Library General Public License
  18. # along with this program; if not, write to the Free Software
  19. # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  20.  
  21. package StbObject;
  22.  
  23. use Utils::DBus;
  24. use base qw(Net::DBus::Object);
  25. use Net::DBus::Exporter ($Utils::Backend::DBUS_PREFIX);
  26.  
  27. dbus_method ("getFiles", [], [[ "array", "string" ]]);
  28.  
  29. sub new
  30. {
  31.   my $class   = shift;
  32.   my $path    = shift;
  33.   my $name    = shift;
  34.   my $platform;
  35.  
  36.   my $bus = &Utils::DBus::get_bus ();
  37.   my $service = $bus->export_service ($Utils::Backend::DBUS_PREFIX . ".$name");
  38.   my $self = $class->SUPER::new ($service, $path);
  39.  
  40.   bless $self, $class;
  41.  
  42.   if (!$Utils::Backend::tool{"platform"})
  43.   {
  44.     $platform = &Utils::DBus::get_platform ();
  45.     &Utils::Backend::set_dist (\%Utils::Backend::tool, $platform) if ($platform);
  46.   }
  47.  
  48.   &set_counter ();
  49.  
  50.   return $self;
  51. }
  52.  
  53. sub set_counter
  54. {
  55.   #wait three minutes until shutdown
  56.   if (!$Utils::Backend::tool{"no-shutdown"})
  57.   {
  58.     $Utils::Backend::tool{"timer"} = &Utils::DBus::add_timeout (180000, \&Utils::DBus::shutdown);
  59.   }
  60. }
  61.  
  62. sub reset_counter
  63. {
  64.   &Utils::DBus::remove_timeout ($Utils::Backend::tool{"timer"});
  65.   set_counter ();
  66. }
  67.  
  68. 1;
  69.